function [nmodel,dat]=i_model(dataset,kind,dat,model,parameter)
% -----------------------------------------------------------
% -- Interpolating modelled fields on observation's position
% -----------------------------------------------------------
% G. Charria (10/2008)


switch dataset
   case 'cruise'
       [nmodel]=i_cruise(dat,model);
   case 'mooring'
       [nmodel,dat]=i_mooring(dat,model,parameter);       
   case 'climato'
       switch kind
           case 'woa05'
               [nmodel]=i_woa05(dat,model);
           case 'mld'
               [nmodel]=i_mld(dat,model);
       end       
   case 'satellite'
       switch kind
           case 'seawifs'
               [nmodel]=i_seawifs(dat,model);
           case 'eke'
               [nmodel]=i_eke(dat,model);
           case 'sst'
               %[nmodel]=i_sst(dat,model);
           case 'pp'
               [nmodel,dat]=i_pp(dat,model);
       end       
      
end
